home *** CD-ROM | disk | FTP | other *** search
Text File | 1990-01-08 | 590 b | 24 lines | [TEXT/Help] |
- ;IRIT-LSI=RIEN
-
- (b2 r i b1 l b0 s e t n)
-
- ((=? (- T I) (- N (* 10 B0)))
- (=? (- I (+ S B0)) (- E (* 10 B1)))
- (=? (- R (+ L B1)) (- I (* 10 B2)))
- (=? (- I B2) R)
- (<>? i r) (<>? i t) (<>? i l) (<>? i s) (<>? i e)
- (<>? i n) (<>? r t) (<>? r l) (<>? r s) (<>? r e)
- (<>? r n) (<>? t l) (<>? t s) (<>? t e) (<>? t n)
- (<>? l s) (<>? l e) (<>? l n) (<>? s e) (<>? s n)
- (<>? e n)(<>? i 0)(<>? l 0)(<>? r 0))
-
- ((0 1)
- (0 1 2 3 4 5 6 7 8 9)
- (0 1 2 3 4 5 6 7 8 9)
- (0 1)
- (0 1 2 3 4 5 6 7 8 9)
- (0 1)
- (0 1 2 3 4 5 6 7 8 9)
- (0 1 2 3 4 5 6 7 8 9)
- (0 1 2 3 4 5 6 7 8 9)
- (0 1 2 3 4 5 6 7 8 9))